#!/usr/bin/perl

use warnings;
use strict;

#use Gnome2;
use Gtk2 -init;
use Gtk2::GladeXML;
use Gtk2::SourceView;

use FindBin;
use lib "$FindBin::Bin/lib";
use dbPicasso::UI;

use dbPicasso::Config;

#Gtk2::App->init ("dbPicasso", '20060817');
my $gladexml = Gtk2::GladeXML->new("$FindBin::Bin/dbpicasso.glade", "dbPicasso");
dbPicasso::UI->set_UI_Source($gladexml);

my $view = dbPicasso::UI->AddSourceView($gladexml);
dbPicasso::UI->set_code_entry($view);

$gladexml->signal_autoconnect_from_package("dbPicasso::UI");

dbPicasso::UI->FillConnectionList;

dbPicasso::UI->init;

Gtk2->main;
